Units Module

History

current version 1.1 - 20th July 2018

version date comment
1.0 09/Jul/2008 Original code
1.1 20/Jul/2018 added NaN

License

license: GNU GPL http://www.gnu.org/licenses/

This file is part of

MOSAICO -- MOdular library for raSter bAsed hydrologIcal appliCatiOn.

Copyright (C) 2011 Giovanni Ravazzani

Code Description

Language: Fortran 90.

Software Standards: "European Standards for Writing and
Documenting Exchangeable Fortran 90 Code".

Module Description

It provides constant values and factor for the conversion from non SI units to SI units

References and Credits: SI_units module by Grant W. Petty.



Variables

Type Visibility Attributes Name Initial
integer(kind=short), public, parameter :: NaNint = -9999
real(kind=float), public, parameter :: NaNreal = -9999.9
real(kind=float), public, parameter :: acre = 4356_float*squareFoot
real(kind=double), public, parameter :: angstrom = 1E-10_double
real(kind=float), public, parameter :: cc = centimeter**3_float
real(kind=float), public, parameter :: centimeter = 1E-2_float
real(kind=float), public, parameter :: cm = 1E-2_float
real(kind=float), public, parameter :: cm2 = centimeter**2_float
real(kind=float), public, parameter :: cubicCentimeter = centimeter**3_float
real(kind=float), public, parameter :: cubicFoot = foot**3_float
real(kind=float), public, parameter :: cubicInch = inch**3_float
real(kind=float), public, parameter :: cup = usaGallon/16_float
real(kind=float), public, parameter :: day = 24_float*hour
real(kind=float), public, parameter :: degToRad = pi/180_float

Degree to radians

real(kind=float), public, parameter :: foot = 12.0*inch
real(kind=float), public, parameter :: gravityAccel = 9.80665_float
real(kind=float), public, parameter :: ha = 1E+4_float
real(kind=float), public, parameter :: hectare = 1E+4_float
real(kind=float), public, parameter :: hour = 60_float*minute
real(kind=float), public, parameter :: icePoint = 273.15_float
real(kind=float), public, parameter :: imperialGallon = 4.54609_float*liter
real(kind=float), public, parameter :: inch = 2.54*cm
real(kind=float), public, parameter :: kilometer = 1E+3_float
real(kind=float), public, parameter :: km = 1E+3_float
real(kind=float), public, parameter :: km2 = kilometer**2_float
real(kind=float), public, parameter :: liter = 1E-3_float
real(kind=double), public, parameter :: micron = 1E-6_double
real(kind=float), public, parameter :: mile = 5280.0*foot
real(kind=float), public, parameter :: milliLiter = centimeter**3_float
real(kind=float), public, parameter :: millimeter = 1E-3_float
real(kind=float), public, parameter :: minute = 60_float
real(kind=float), public, parameter :: mm = 1E-3_float
real(kind=float), public, parameter :: mm2 = millimeter**2_float
real(kind=float), public, parameter :: month = 30.416666667_float*day
real(kind=float), public, parameter :: nauticalMile = 1.852E+3_float
real(kind=float), public, parameter :: ounce = usaGallon/128_float
real(kind=double), public, parameter :: pi = 3.141592653589793_double
real(kind=float), public, parameter :: pint = usaGallon/8_float
real(kind=float), public, parameter :: quart = usaGallon/4_float
real(kind=float), public, parameter :: radToDeg = 180_float/pi

Degree to radians

real(kind=double), public, parameter :: speedOfLight = 2.99792458E+8_double

(m/s)

real(kind=float), public, parameter :: squareCentimeter = centimeter**2_float
real(kind=float), public, parameter :: squareFoot = foot**2_float
real(kind=float), public, parameter :: squareInch = inch**2_float
real(kind=float), public, parameter :: squareKilometer = kilometer**2_float
real(kind=float), public, parameter :: squareMile = mile**2_float
real(kind=float), public, parameter :: squareMillimeter = millimeter**2_float
real(kind=float), public, parameter :: squareYard = yard**2_float
real(kind=float), public, parameter :: stefanBoltzman = 5.670367E-8_float

( watt/ (m2 * kelvin) )

real(kind=float), public, parameter :: tableSpoon = usaGallon/256_float
real(kind=float), public, parameter :: teaSpoon = usaGallon/768_float
real(kind=float), public, parameter :: usaGallon = 3.785412_float*liter
real(kind=float), public, parameter :: waterTriplePoint = 273.16_float
real(kind=float), public, parameter :: week = 7_float*day
real(kind=float), public, parameter :: yard = 3.0*foot
real(kind=float), public, parameter :: year = 365_float*day